We developed a grid of potential camera installation points in Risaralda, in conjunction with Corporación Autónoma Regional de Risaralda (CARDER) and Wildlife Conservation Society (WCS). This network of points was designed to also cover the Otún Quimbaya Flora and Fauna Sanctuary and part of Los Nevados National Natural Park, using a grid pattern with 500 meter spacing.
##| column: screen-inset-shaded # widecameras<-read_sf("C:/CodigoR/screwworm_mountain_tapir/data/cameras.csv")# Convert to a Spatial Object (sf)# CRS 4326 is standard WGS84 for Google Earthcameras_sf<-st_as_sf(cameras, coords =c("Longitude", "Latitude"), crs =4326)|>select("instalador", "proyecto", "Ecosistema")puntos_500m<-read_sf("C:/CodigoR/screwworm_mountain_tapir/data/shp/puntos_camaras_500m.geojson")SFF_Otun_Quimbaya<-read_sf("C:/CodigoR/screwworm_mountain_tapir/data/shp/WDPA_WDOECM_Jan2026_Public_303548_shp-polygons.shp")[,5:9]PNN_Nevados<-read_sf("C:/CodigoR/screwworm_mountain_tapir/data/shp/WDPA_WDOECM_Jan2026_Public_147_shp-polygons.shp")[,5:9]PR_Ucumari<-read_sf("C:/CodigoR/screwworm_mountain_tapir/data/shp/WDPA_WDOECM_Jan2026_Public_555555791_shp-polygons.shp")[,5:9]#corine <- read_sf("C:/CodigoR/screwworm_mountain_tapir/data/shp/ECOSISTEMAS_18062025.gpkg") |> st_transform(4326) # 2. Using the extent of another object#target_bbox <- st_bbox(puntos_500m) |> st_buffer(dist = 0.5) #cropped_corine <- st_crop(corine, target_bbox)# remove corine large from memory# rm(corine)# croped_corine <- read_sf("C:/CodigoR/screwworm_mountain_tapir/data/shp/corine_cortado.gpkg") |> st_transform(4326) # get elevation map# elevation_18 <- rast(get_elev_raster(cameras_sf, z = 12)) #z =1-14# bb <- st_as_sfc(st_bbox(elevation_17)) # make bounding box # extract covs using points and add to _sites# covs_Col_18_sites <- cbind(Col_18_sites, terra::extract(elevation_18, Col_18_sites))# get which are in and outcameras_sf$in_AP=st_intersects(cameras_sf, SFF_Otun_Quimbaya, sparse =FALSE)# Make a maptmap_mode("view")#> ℹ tmap modes "plot" - "view"#> ℹ toggle with `tmap::ttm()`tm_shape(PR_Ucumari)+tm_polygons(#fill = "dwelling_value", col ="green", fill ="lightgreen", fill_alpha =0.5)+tm_shape(PNN_Nevados)+tm_polygons(#fill = "dwelling_value", col ="green",#fill = "lightgreen", fill_alpha =0.5)+tm_shape(SFF_Otun_Quimbaya)+tm_polygons(#fill = "dwelling_value", col ="green", fill ="lightgreen", fill_alpha =0.5)+tm_shape(puntos_500m)+tm_dots( size =0.3,#lwd = 1, fill ="red", col ="black", fill_alpha =0.5)+tm_basemap("Esri.WorldTopoMap")+# "CartoDB.Voyager")+# "Stadia.StamenTerrain") + tm_minimap(position =c("left", "bottom"), height =4, width =5)+tm_scalebar()
Map showing the location of the point network. 500 meter grid.
Stratification by vegetation cover
The MapBiomas land cover map was downloaded and cropped to the projected area of points to have cameras in all land cover types.
Appelhans, Tim, Florian Detsch, Christoph Reudenbach, and Stefan Woellauer. 2025. mapview: Interactive Viewing of Spatial Data in r. https://CRAN.R-project.org/package=mapview.
Cheng, Joe, Barret Schloerke, Bhaskar Karambelkar, Yihui Xie, and Garrick Aden-Buie. 2025. leaflet: Create Interactive Web Maps with the JavaScript “Leaflet” Library. https://CRAN.R-project.org/package=leaflet.
Hollister, Jeffrey, Tarak Shah, Jakub Nowosad, Alec L. Robitaille, Marcus W. Beck, and Mike Johnson. 2023. elevatr: Access Elevation Data from Various APIs. https://doi.org/10.5281/zenodo.8335450.
Pebesma, Edzer. 2018. “Simple Features for R: Standardized Support for Spatial Vector Data.”The R Journal 10 (1): 439–46. https://doi.org/10.32614/RJ-2018-009.
R Core Team. 2024. R: A Language and Environment for Statistical Computing. Vienna, Austria: R Foundation for Statistical Computing. https://www.R-project.org/.
Wickham, Hadley, Mara Averick, Jennifer Bryan, Winston Chang, Lucy D’Agostino McGowan, Romain François, Garrett Grolemund, et al. 2019. “Welcome to the tidyverse.”Journal of Open Source Software 4 (43): 1686. https://doi.org/10.21105/joss.01686.
Xie, Yihui, Joe Cheng, Xianying Tan, and Garrick Aden-Buie. 2025. DT: A Wrapper of the JavaScript Library “DataTables”. https://CRAN.R-project.org/package=DT.
@online{lizcano2025,
author = {Lizcano, Diego and Vélez-Gómez, Juliana and Valenzuela,
Leonor and David Corrales, Juan and Rivera-Gómez, Jackeline and
Suarez-Mejia, Jaime and Galindo-Tarazona, Robinson and Girleza
Ramírez-González, María and Mantilla-Castaño, Camilo},
title = {Installation of {Camera} {Traps}},
date = {2025-12-15},
url = {https://tapir-specialist-group.github.io/screwworm_mountain_tapir/blog/2025-12-10-instalacion/},
langid = {en}
}
